home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple II Magazines (PO)
/
Nibble Volume 10, No. 10 (1989-10)(MindCraft Publishing)(Side A)[a].zip
/
Nibble Volume 10, No. 10 (1989-10)(MindCraft Publishing)(Side A)[a].po
/
AMPER.PEEKER.S
< prev
next >
Wrap
Text File
|
1996-12-24
|
3KB
|
103 lines
*********************************
* AMPER.PEEKER SOURCE CODE *
* BY CHRIS MEYER *
* COPYRIGHT(C) 1989 *
* MINDCRAFT PUBL. CORP. *
* CONCORD, MA 01742 *
* EDITOR ASSEMBLER *
*********************************
ORG $300
;
; EQUATES
VARADR EQU $83
TEMP3 EQU $D6
TEMP2 EQU $FA
ADR EQU $FC
TEMP EQU $FE
VECTOR EQU $3F5 ;& JUMP VECTOR
CHECKC EQU $DEBE ;CHECK FOR COMMA
GETVAR EQU $DFE3 ;EVALUATES VARIABLE
ERROR EQU $FF2D ;PRINT "ERR"
JMP BEGIN
;
; SCREEN ADDRESSES
;
VTAB1 DFB $04,$04,$05,$05,$06,$06,$07,$07
DFB $04,$04,$05,$05,$06,$06,$07,$07
DFB $04,$04,$05,$05,$06,$06,$07,$07
VTAB2 DFB $00,$80,$00,$80,$00,$80,$00,$80
DFB $28,$A8,$28,$A8,$28,$A8,$28,$A8
DFB $28,$A8,$28,$A8,$28,$A8,$28,$A8
DFB $50,$D0,$50,$D0,$50,$D0,$50,$D0
BEGIN LDA #$4C ;SETS UP
STA VECTOR ;& VECTOR
LDA #START
STA VECTOR+1
LDA START+2
STA VECTOR+2
RTS
;
; MAIN PROGRAM
;
START JSR GETVAR
LDA VARADR
STA TEMP2
LDA VARADR+1
STA TEMP2+1
JSR CHECKC
JSR GETVAR
LDY #0
LDA (VARADR),Y
STA TEMP
INY
LDA (VARADR),Y
STA TEMP+1
JSR CHECKC
JSR GETVAR
LDY #0
LDA (VARADR),Y
STA TEMP3
INY
LDA (VARADR),Y
STA TEMP3+1
;
; CHECK FOR ERROR
;
LDA TEMP
BNE ERR
LDA TEMP+1
CMP #41
BCS ERR
LDA TEMP3
BNE ERR
LDA TEMP3+1
CMP #25
BCS ERR
JMP GOOD
;
; PRINT ERROR
;
ERR JMP ERROR
;
; NO ERROR, SO CONTINUE
;
GOOD LDY TEMP3+1
LDA VTAB1-1,Y
STA ADR+1
LDA VTAB2-1,Y
STA ADR
LDA ADR
BNE *+4
DEC ADR+1
DEC ADR
LDY TEMP+1
LDA (ADR),Y
PHA
LDA #0
TAY
STA (TEMP2),Y
INY
PLA
STA (TEMP2),Y
RTS